home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Mini Loco (edu) disk 1.adf / start < prev   
Text File  |  1990-01-14  |  320b  |  13 lines
  1. CLEAR ,51200&,1024
  2. DECLARE FUNCTION Execute& LIBRARY
  3. DECLARE FUNCTION OpenDiskFont& LIBRARY
  4. DECLARE FUNCTION move& LIBRARY
  5. LIBRARY "graphics.library"
  6. LIBRARY "diskfont.library"
  7. LIBRARY "dos.library"
  8. c$="df0:c/prefs":gosub CLI:c$="df0:c/prefs 0 -6":gosub CLI
  9. run "Mini Loco"
  10.  
  11. Cli:
  12. x=Execute&(SADD(c$+CHR$(0)),0,0):return
  13.